perm filename TEST.TEX[TEX,DEK]3 blob sn#427777 filedate 1979-03-31 generic text, type T, neo UTF8
\input dochdr

\secbegin Testing 1,2,3$\ldots$
\pascal
\1\3\2\1\&{define} \\{curchar} $≡$ $15\null$\40\ $\{\;$current character$\;\}$
$\null
$
\3\2\1\&{define} \\{escape}\.{(\char'43)} $≡$ $\.{\char'43}+\.{\char'43}\null$\40\ $\{\;$testing this$\;\}$
$\null
$
\3\2\1\&{define} \\{escape2}\.{(\char'43)} $≡$ $\\{curchar}+\.{\char'43}\null$\40\ $\{\;$another test$\;\}$
$\null
$

\secbegin Where does a new section start?
\pascal
\1\3\2\1\&{define} \\{curchar} $≡$ $14\mathleft{\hbox{p}}\mathleft{\hbox{o}}\mathleft{\hbox{s}}\mathleft{\hbox{s}}\mathleft{\hbox{i}}\mathleft{\hbox{b}}\mathleft{\hbox{l}}\mathleft{\hbox{y}}
$
\2\1\&{with} $\\{a}\\{whimper}$ 
\3


\index
\\a:2.
\\curchar:\&{2}, 1.
\\possibly:2.
\\whimper:2.
\endindex